Program CodigoFinal;

Const
df = 'a';
cc = 10 + (5 * 4);
bt = 'suma' + 'resta';
hj = 9;

Type
    Productos = Record
	    codigo:string;
	    cantidad:integer;
            precio:integer;	
    	    arr:array[1..4] of integer;
    	    ma2:array[1..10,20..40] of string;
    end;
    arreg = array[1..4] of integer;
    mat2 = array[1..10,20..40] of string;
    bc = real;
    cb = char;
    XXXX = Productos;	
    f = file of string;	

{variables
globales}

Var
   a:bc;
   b:integer;
   c:integer;
   d:integer;
   z:real;	
   x:string;
   xx:string;
   personas:record
	nombre: integer;
	direccion: string;
	arreglito : array[1..4] of integer;
        matriz2: array[1..10,20..40] of string;
   end;

Procedure Division(xy,yx,yy,ko,po:integer);
Const
    kl = 19;
    fn = 4 + 4;
    gq = 'bc';
TYpe
   array_proc=array[1..4] of integer;
   dy = string;
var
   b:integer;
   pr:integer;
   cad:string;
   profesores:record
	codigo: integer;
	nombre: string;
   end;
begin
   z:= 50.5678;
   profesores.codigo:=9;
   pr:= 9 + 9;
  
   for d := 1  to 10 do
     begin
       cad:='funciona el for en el proc';
       b:= 10 * 9;
     end;

   if c = 9 then
      begin
        pr:= 7;
        pr:= pr + 8;
      end
   else
      begin	
        b:= 9; 
        cad:='muy mal';
        cad:= 'ahora' + 'muy bien';
      end;
   end;

Function Total(l,m:integer):integer;
var
   x: Integer;
   f:integer;
   fx:cb;
Begin
   {cad:='hello world';}
   while (c <> 9) AND (c = 1) OR ( f > 6) AND (f = 22) do
     begin
     	xx:='compiladores';
     	fx:='A';
     	f:= l + m;
     	Division (10,9,8,7,6);
     end;
end;

{COMIENZA EL PROGRAMA}
begin

c:= 1;
while (c < 10) AND (c = 1) do
  begin
    c:= c + 1; 
    c:= 10;	
  end;

personas.direccion:= 'lavalle 678';
b:=9;
c:= 4 + 6;

{LOS REALES EN PASCAL VAN CON PUNTO}
a:= ((1 + b) + 50) - 150 * 60 + (7.2/7);

for d := (d + 2)  to (c + 10) do
  begin
      x:='pascal' + 'python';
      c:=7 *8;
      x:='funciona el for';
  end;
if (c >  ( 8 + 9 ))  and (c <> 2) or (d=12) then
  begin
     x:='muy bien';
     c:= 7;
  end
else
  begin
     x:='muy mal';
     c:= (7 + 8 * 9) * 10;
  end;


  Division (b,4,5,6,7);
  d:= Total (9,9);
end.